Решение:

Итоговый код для события Click() нашей кнопки может быть таким:

Private Sub CommandButton1_Click()

Dim nEmpId As Integer

Dim sLastName As String

Dim sFirstName As String

Dim sTitle As String

'Получаем от пользователя номер сотрудника

nEmpId = CInt(InputBox("Введите номер сотрудника:"))

' Создаем и настраиваем объект Connection

Dim cn As New ADODB.Connection

'У вас путь к файлу Борей.mdb может быть другим

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=C:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Борей.mdb"

cn.Open

'Создаем и настраиваем объект Recordset

Dim rs As New ADODB.Recordset

'Обеспечиваем возможность передвижения в любом направлении

rs.CursorType = adOpenStatic

'Открываем Recordset на основе запроса

rs.Open " SELECT [КодСотрудника], [Имя], [Фамилия], [Должность] " & _

"FROM [Сотрудники] WHERE [КодСотрудника] = " & nEmpId, cn

'Проверяем, не пустой ли Recordset

If rs.EOF = True And rs.BOF = True Then

MsgBox "Сотрудник с таким номером не обнаружен"

Exit Sub

End If

'Присваиваем значения из найденной записи в таблице

sLastName = rs.Fields("Фамилия")

sFirstName = rs.Fields("Имя")

sTitle = rs.Fields("Должность")

ThisDocument.Activate

ThisDocument.Bookmarks("Bookmark1").Select

Selection.TypeText nEmpId & " " & sLastName & " " & sFirstName & _

" " & vbTab & sTitle & vbCrLf

End Sub

Получить этот учебник в формате PDF (Acrobat Reader) или DOC (Microsoft Word)